home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 20 / 5 / DISK2058.ZIP / UNFAST.EXE / FAST32.FI < prev    next >
Text File  |  1980-01-01  |  473b  |  30 lines
  1. ;FAST 32 bit libraries - later to put into FASTLIB.ASM
  2.  
  3. #short
  4. var32 n32,s32,div32,sp32
  5. var p32q,p32lead
  6.  
  7. proc prt32
  8.     {
  9.     sp32=s32/div32
  10.     if (low sp32)=p32q then
  11.     {
  12.     if p32lead then print chr p32lead;
  13.     return
  14.     }
  15.     print chr '0'+low sp32;
  16.     p32q=-1
  17.     s32-=sp32*div32
  18.     }
  19.  
  20. proc print32(p32lead)
  21.     {
  22.     p32q=0
  23.     s32=n32
  24.     div32=1000000000
  25.     for pl32=1 to 10
  26.     if pl32=10 then p32q=-1
  27.     prt32
  28.     div32/=10
  29.     next pl32
  30.     }